###This information has been sourced from the JHU CSSE on the continuely changin state of the Corona Virus. The important used in these graphs can be found from both the daily reports and the time-series. Data below will show date up until March 31st, the date of the most up-to-date data at this time.

###An overview of the global virus spread can be seen below:

## ── Attaching packages ───────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──
## ✓ ggplot2 3.2.1     ✓ purrr   0.3.3
## ✓ tibble  2.1.3     ✓ dplyr   0.8.4
## ✓ tidyr   1.0.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0
## ── Conflicts ──────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## 
## Attaching package: 'maps'
## The following object is masked from 'package:purrr':
## 
##     map
## 
## Attaching package: 'lubridate'
## The following object is masked from 'package:base':
## 
##     date
## Loading required package: viridisLite
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
## Parsed with column specification:
## cols(
##   .default = col_double(),
##   `Province/State` = col_character(),
##   `Country/Region` = col_character()
## )
## See spec(...) for full column specifications.
## Warning: Removed 228 rows containing missing values (geom_point).

## Warning: Removed 228 rows containing missing values (geom_point).
## Warning: Removed 220 rows containing missing values (geom_point).
## Warning: Removed 218 rows containing missing values (geom_point).
## Warning: Removed 215 rows containing missing values (geom_point).

## Warning: Removed 215 rows containing missing values (geom_point).
## Warning: Removed 212 rows containing missing values (geom_point).
## Warning: Removed 209 rows containing missing values (geom_point).
## Warning: Removed 208 rows containing missing values (geom_point).
## Warning: Removed 205 rows containing missing values (geom_point).
## Warning: Removed 202 rows containing missing values (geom_point).
## Warning: Removed 198 rows containing missing values (geom_point).
## Warning: Removed 196 rows containing missing values (geom_point).

## Warning: Removed 196 rows containing missing values (geom_point).

## Warning: Removed 196 rows containing missing values (geom_point).

## Warning: Removed 196 rows containing missing values (geom_point).
## Warning: Removed 195 rows containing missing values (geom_point).

## Warning: Removed 195 rows containing missing values (geom_point).

## Warning: Removed 195 rows containing missing values (geom_point).
## Warning: Removed 194 rows containing missing values (geom_point).

## Warning: Removed 194 rows containing missing values (geom_point).

## Warning: Removed 194 rows containing missing values (geom_point).

## Warning: Removed 194 rows containing missing values (geom_point).

## Warning: Removed 194 rows containing missing values (geom_point).

## Warning: Removed 194 rows containing missing values (geom_point).

## Warning: Removed 194 rows containing missing values (geom_point).

## Warning: Removed 194 rows containing missing values (geom_point).
## Warning: Removed 193 rows containing missing values (geom_point).

## Warning: Removed 193 rows containing missing values (geom_point).

## Warning: Removed 193 rows containing missing values (geom_point).

## Warning: Removed 193 rows containing missing values (geom_point).

## Warning: Removed 193 rows containing missing values (geom_point).

## Warning: Removed 193 rows containing missing values (geom_point).
## Warning: Removed 192 rows containing missing values (geom_point).

## Warning: Removed 192 rows containing missing values (geom_point).
## Warning: Removed 190 rows containing missing values (geom_point).

## Warning: Removed 190 rows containing missing values (geom_point).

## Warning: Removed 190 rows containing missing values (geom_point).
## Warning: Removed 185 rows containing missing values (geom_point).

## Warning: Removed 185 rows containing missing values (geom_point).
## Warning: Removed 181 rows containing missing values (geom_point).
## Warning: Removed 174 rows containing missing values (geom_point).
## Warning: Removed 170 rows containing missing values (geom_point).
## Warning: Removed 163 rows containing missing values (geom_point).
## Warning: Removed 158 rows containing missing values (geom_point).
## Warning: Removed 153 rows containing missing values (geom_point).
## Warning: Removed 145 rows containing missing values (geom_point).

## Warning: Removed 145 rows containing missing values (geom_point).
## Warning: Removed 141 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 120 rows containing missing values (geom_point).
## Warning: Removed 117 rows containing missing values (geom_point).
## Warning: Removed 112 rows containing missing values (geom_point).
## Warning: Removed 108 rows containing missing values (geom_point).
## Warning: Removed 103 rows containing missing values (geom_point).

## Warning: Removed 103 rows containing missing values (geom_point).
## Warning: Removed 95 rows containing missing values (geom_point).
## Warning: Removed 93 rows containing missing values (geom_point).
## Warning: Removed 79 rows containing missing values (geom_point).
## Warning: Removed 64 rows containing missing values (geom_point).
## Warning: Removed 58 rows containing missing values (geom_point).
## Warning: Removed 51 rows containing missing values (geom_point).
## Warning: Removed 48 rows containing missing values (geom_point).

## Warning: Removed 48 rows containing missing values (geom_point).
## Warning: Removed 43 rows containing missing values (geom_point).
## Warning: Removed 37 rows containing missing values (geom_point).
## Warning: Removed 28 rows containing missing values (geom_point).
## Warning: Removed 26 rows containing missing values (geom_point).
## Warning: Removed 21 rows containing missing values (geom_point).

## Warning: Removed 21 rows containing missing values (geom_point).
## Warning: Removed 19 rows containing missing values (geom_point).

## Warning: Removed 19 rows containing missing values (geom_point).
## Warning: Removed 16 rows containing missing values (geom_point).
## Warning: Removed 13 rows containing missing values (geom_point).
## Warning: Removed 12 rows containing missing values (geom_point).
## Warning: Removed 9 rows containing missing values (geom_point).

## Warning: Removed 9 rows containing missing values (geom_point).
## Warning: Removed 8 rows containing missing values (geom_point).
## Warning: Removed 6 rows containing missing values (geom_point).

## Warning: Removed 6 rows containing missing values (geom_point).

## Warning: Removed 6 rows containing missing values (geom_point).
## Warning: Removed 4 rows containing missing values (geom_point).

## Warning: Removed 4 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_point).

###The above animated graph shows how the numbers of confirmed cases have changed from January until now. This shows how the spread has been occuring at an accelerated rate and when it traveled to the different countries. More information on the amount confirmed can be seen in the bar graph below.

###The Top 20 Infected Countries are shown in the bar graph below. The bars represent the number of cases that have been confirmed in the top 20 countries.

## Parsed with column specification:
## cols(
##   FIPS = col_character(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_datetime(format = ""),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character()
## )
## # A tibble: 6 x 12
##   FIPS  Admin2 Province_State Country_Region Last_Update           Lat  Long_
##   <chr> <chr>  <chr>          <chr>          <dttm>              <dbl>  <dbl>
## 1 45001 Abbev… South Carolina US             2020-03-31 23:43:56  34.2  -82.5
## 2 22001 Acadia Louisiana      US             2020-03-31 23:43:56  30.3  -92.4
## 3 51001 Accom… Virginia       US             2020-03-31 23:43:56  37.8  -75.6
## 4 16001 Ada    Idaho          US             2020-03-31 23:43:56  43.5 -116. 
## 5 19001 Adair  Iowa           US             2020-03-31 23:43:56  41.3  -94.5
## 6 29001 Adair  Missouri       US             2020-03-31 23:43:56  40.2  -92.6
## # … with 5 more variables: Confirmed <dbl>, Deaths <dbl>, Recovered <dbl>,
## #   Active <dbl>, Combined_Key <chr>
## # A tibble: 180 x 2
##    Country_Region Confirmed
##    <chr>              <dbl>
##  1 US                188172
##  2 Italy             105792
##  3 Spain              95923
##  4 China              82279
##  5 Germany            71808
##  6 France             52827
##  7 Iran               44605
##  8 United Kingdom     25481
##  9 Switzerland        16605
## 10 Turkey             13531
## # … with 170 more rows

###The bar graph shows the top 20 countries who have the highest number of cases. These countries are the ones that need to be most warry of spread. The cooresponding death rate is shown below, but must be kept in consideration to the total number of cases.

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   `Province/State` = col_character(),
##   `Country/Region` = col_character()
## )
## See spec(...) for full column specifications.
## Warning: Removed 244 rows containing missing values (geom_point).

## Warning: Removed 244 rows containing missing values (geom_point).
## Warning: Removed 243 rows containing missing values (geom_point).
## Warning: Removed 240 rows containing missing values (geom_point).
## Warning: Removed 239 rows containing missing values (geom_point).

## Warning: Removed 239 rows containing missing values (geom_point).
## Warning: Removed 237 rows containing missing values (geom_point).
## Warning: Removed 236 rows containing missing values (geom_point).
## Warning: Removed 235 rows containing missing values (geom_point).
## Warning: Removed 227 rows containing missing values (geom_point).
## Warning: Removed 223 rows containing missing values (geom_point).
## Warning: Removed 221 rows containing missing values (geom_point).
## Warning: Removed 219 rows containing missing values (geom_point).
## Warning: Removed 216 rows containing missing values (geom_point).

## Warning: Removed 216 rows containing missing values (geom_point).
## Warning: Removed 214 rows containing missing values (geom_point).
## Warning: Removed 213 rows containing missing values (geom_point).
## Warning: Removed 212 rows containing missing values (geom_point).
## Warning: Removed 210 rows containing missing values (geom_point).
## Warning: Removed 208 rows containing missing values (geom_point).
## Warning: Removed 206 rows containing missing values (geom_point).
## Warning: Removed 205 rows containing missing values (geom_point).

## Warning: Removed 205 rows containing missing values (geom_point).

## Warning: Removed 205 rows containing missing values (geom_point).
## Warning: Removed 204 rows containing missing values (geom_point).
## Warning: Removed 193 rows containing missing values (geom_point).
## Warning: Removed 191 rows containing missing values (geom_point).

## Warning: Removed 191 rows containing missing values (geom_point).
## Warning: Removed 190 rows containing missing values (geom_point).
## Warning: Removed 189 rows containing missing values (geom_point).

## Warning: Removed 189 rows containing missing values (geom_point).
## Warning: Removed 187 rows containing missing values (geom_point).

## Warning: Removed 187 rows containing missing values (geom_point).
## Warning: Removed 186 rows containing missing values (geom_point).

## Warning: Removed 186 rows containing missing values (geom_point).
## Warning: Removed 185 rows containing missing values (geom_point).
## Warning: Removed 184 rows containing missing values (geom_point).
## Warning: Removed 185 rows containing missing values (geom_point).

## Warning: Removed 185 rows containing missing values (geom_point).

## Warning: Removed 185 rows containing missing values (geom_point).

## Warning: Removed 185 rows containing missing values (geom_point).
## Warning: Removed 183 rows containing missing values (geom_point).
## Warning: Removed 182 rows containing missing values (geom_point).
## Warning: Removed 181 rows containing missing values (geom_point).
## Warning: Removed 180 rows containing missing values (geom_point).

## Warning: Removed 180 rows containing missing values (geom_point).

## Warning: Removed 180 rows containing missing values (geom_point).

## Warning: Removed 180 rows containing missing values (geom_point).
## Warning: Removed 178 rows containing missing values (geom_point).
## Warning: Removed 176 rows containing missing values (geom_point).

## Warning: Removed 176 rows containing missing values (geom_point).
## Warning: Removed 174 rows containing missing values (geom_point).

## Warning: Removed 174 rows containing missing values (geom_point).
## Warning: Removed 171 rows containing missing values (geom_point).
## Warning: Removed 166 rows containing missing values (geom_point).
## Warning: Removed 161 rows containing missing values (geom_point).

## Warning: Removed 161 rows containing missing values (geom_point).
## Warning: Removed 160 rows containing missing values (geom_point).
## Warning: Removed 158 rows containing missing values (geom_point).
## Warning: Removed 153 rows containing missing values (geom_point).
## Warning: Removed 146 rows containing missing values (geom_point).
## Warning: Removed 144 rows containing missing values (geom_point).
## Warning: Removed 137 rows containing missing values (geom_point).
## Warning: Removed 130 rows containing missing values (geom_point).

## Warning: Removed 130 rows containing missing values (geom_point).
## Warning: Removed 128 rows containing missing values (geom_point).
## Warning: Removed 127 rows containing missing values (geom_point).
## Warning: Removed 123 rows containing missing values (geom_point).
## Warning: Removed 116 rows containing missing values (geom_point).
## Warning: Removed 108 rows containing missing values (geom_point).

## Warning: Removed 108 rows containing missing values (geom_point).
## Warning: Removed 98 rows containing missing values (geom_point).

## Warning: Removed 98 rows containing missing values (geom_point).
## Warning: Removed 92 rows containing missing values (geom_point).
## Warning: Removed 88 rows containing missing values (geom_point).
## Warning: Removed 81 rows containing missing values (geom_point).
## Warning: Removed 77 rows containing missing values (geom_point).
## Warning: Removed 75 rows containing missing values (geom_point).
## Warning: Removed 70 rows containing missing values (geom_point).
## Warning: Removed 62 rows containing missing values (geom_point).
## Warning: Removed 60 rows containing missing values (geom_point).

## Warning: Removed 60 rows containing missing values (geom_point).
## Warning: Removed 58 rows containing missing values (geom_point).
## Warning: Removed 52 rows containing missing values (geom_point).
## Warning: Removed 45 rows containing missing values (geom_point).
## Warning: Removed 41 rows containing missing values (geom_point).

###This may look alarming, but keep in mind that the number of deaths overall, ~70,000 is compared to the total cases, which is ~1,286,000. Seeing as we are in the United States, we are able to zoom in on just the United States spread.

## Parsed with column specification:
## cols(
##   FIPS = col_character(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_datetime(format = ""),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character()
## )
## # A tibble: 6 x 2
##   Province_State Confirmed
##   <chr>              <dbl>
## 1 alabama              587
## 2 alaska                58
## 3 american samoa         0
## 4 arizona              665
## 5 arkansas             381
## 6 california          4657

###This data can be continued to be broken down by state, namely Massachusetts in this case
###Although this data can look frightening, it is worth looking at the recovery rates.

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   `Province/State` = col_character(),
##   `Country/Region` = col_character()
## )
## See spec(...) for full column specifications.
## Parsed with column specification:
## cols(
##   .default = col_double(),
##   `Province/State` = col_character(),
##   `Country/Region` = col_character()
## )
## See spec(...) for full column specifications.
## Parsed with column specification:
## cols(
##   .default = col_double(),
##   `Province/State` = col_character(),
##   `Country/Region` = col_character()
## )
## See spec(...) for full column specifications.

```

###Although the U.S. looks low in its recovery arch, it is possible that our recovery rate may look like China’s. As you can see toward the end, the U.S. beings to spike like China does in the beginning of the graph. This means that it is possible we are reaching the exponential rate of recovery like China has. It is only delayed due to the U.S. being affected later than China was.